﻿Imports Utilitario
Public Class frmPedidosXBandeja

    Dim dt As DataSet = Nothing

    Sub New(ds As DataSet)

        ' Llamada necesaria para el diseñador.
        InitializeComponent()

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
        Me.dt = ds
    End Sub

    Private Sub frmPedidosXBandeja_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        dgvPedido.DataSource = dt.Tables(0)

        If dt.Tables(0).Rows.Count > 0 Then
            dgvPedido.Rows(0).Selected = False
        End If
    End Sub

    Private Sub dgvPedido_CellClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvPedido.CellClick
        Dim f As Integer = e.RowIndex

        If f > -1 Then
            codigoPedido = dgvPedido.Item("Column1", f).Value
            DialogResult = Windows.Forms.DialogResult.OK
        End If
    End Sub

End Class